home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / RRYDER.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  30 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for Red Ryder: remote,password,first,last
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   first:    first name. Optional: assumed equal to %n1
  10.  :   last:     last name.  Optional: assumed equal to %n2
  11.  ena -K!Z p?0 findq "\n%remote," %lib/%ZCUSER.ids
  12.  if ? split z0 , , , "";if %z1 goto haveuser
  13.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  14.  ife r nolog close;return
  15. haveuser:
  16.  ife !%z2 sets z2 %n1;ife !%z3 sets z3 %n2
  17.  set fpgup "@accept s0 Upload-Filename:;if %s0 sx %s0"
  18.  set fpgdn "@accept s0 Download-Filename:;if %s0 rc %s0"
  19.  pt10 ena -t
  20.  pat 23cp$ "to continue..." \r
  21.  pat 24cp$ "to continue...\a" \r
  22.  pat;pat 0i "return to begin";wait -f10;put \r
  23.  pat; pat 0c "irst name? " "\336%z2\r"
  24.  pat 1c "irst Name? " "\336%z2\r"
  25.  pat 2c "ast name? " "\336%z3\r"
  26.  pat 3c "ast Name? " "\336%z3\r"
  27.  pat 4i "Your password? " "\336%z1\r";wait -f30
  28.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  29.  ife r nolog close;return
  30.